object DirBuildDlg: TDirBuildDlg Left = 223 Top = 505 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'En cours...' ClientHeight = 88 ClientWidth = 247 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poOwnerFormCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 16 Width = 91 Height = 13 Caption = 'Balayage des dossiers...' end object ProgressLabel: TLabel Left = 16 Top = 32 Width = 225 Height = 13 AutoSize = False Caption = '%' ShowAccelChar = False end object CancelBtn: TButton Left = 84 Top = 56 Width = 73 Height = 23 Cancel = True Caption = 'Annuler' ModalResult = 2 TabOrder = 0 OnClick = CancelBtnClick end object Timer1: TTimer Interval = 250 OnTimer = Timer1Timer Left = 4 Top = 48 end end